home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / tmmplot / demo.dpr next >
Text File  |  1996-09-15  |  441b  |  26 lines
  1. program Demo;
  2.  
  3. uses
  4.   Forms,
  5.   Main in 'MAIN.PAS' {MainForm},
  6.   Settings in 'SETTINGS.PAS' {SettingsDlg};
  7.  
  8. {$R *.RES}
  9.  
  10. var
  11.   SaveExit: Pointer;
  12.  
  13. procedure ExitApp; far;
  14. begin
  15.   ExitProc := SaveExit;
  16. end;
  17.  
  18. begin
  19.     SaveExit := ExitProc;
  20.     ExitProc := @ExitApp;
  21.   Application.Title := 'HPGLDEMO';
  22.   Application.CreateForm(TMainForm, MainForm);
  23.   Application.CreateForm(TSettingsDlg, SettingsDlg);
  24.   Application.Run;
  25. end.
  26.